home *** CD-ROM | disk | FTP | other *** search
/ MacWorld 1999 January - Disc 2 / Macworld (1999-01) (Disk 2).dmg / Serious Demos / Symbolic Composer 4.2 / Environment / System / SYMBOL / Symbol Processors / Fill / get-fill < prev   
Lisp/Scheme  |  1998-10-23  |  219b  |  13 lines
  1. get-fill pattern
  2.  
  3. get-fill finds the note and chord symbols in a pattern.
  4.  
  5. (setq mel '(a = = = b = = c = d = =))
  6.  
  7. (get-fill mel)
  8. --> (a b c d)
  9.  
  10. (fill-template '(a b (a b c) d e = g) (get-fill mel))
  11. --> (a b c d a = b)
  12.  
  13.